Public Class SessionManager
    Private _sessionID As Integer

    Public Sub New()
        _sessionID = 100001
    End Sub

    Public Function GetSessionID() As Integer
        Try
            _sessionID = _sessionID + 1
            Return _sessionID
        Catch ex As Exception
            gLog.LogError(ex)
            _sessionID = 100001
            Return _sessionID
        End Try
    End Function

End Class
